home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Programming / AmigaTalk / prelude / AmigaTalk.p < prev    next >
Text File  |  2000-04-24  |  1KB  |  50 lines
  1. pTempVar <- <primitive 110 10 >
  2. <primitive 112 pTempVar 1  " time: " \
  3.   #( #[ 16rFA 16r00 16rA1 16r72 16r21 16rA5 16rF2 16rFA 16r00 16rA1 16r22 \
  4.         16rC1 16rF3 16rF5] \
  5.     #(  )) >
  6.  
  7. <primitive 112 pTempVar 2  " sh: " \
  8.   #( #[ 16r21 16rFA 16r01 16r7D 16rF3 16rF5] \
  9.     #(  )) >
  10.  
  11. <primitive 112 pTempVar 3  " perform:withArguments: " \
  12.   #( #[ 16r22 16r21 16rFA 16r02 16r8F 16rF3 16rF5] \
  13.     #(  )) >
  14.  
  15. <primitive 112 pTempVar 4  " noDisplay " \
  16.   #( #[ 16r51 16r50 16rFA 16r02 16r08 16rF3 16rF5] \
  17.     #(  )) >
  18.  
  19. <primitive 112 pTempVar 5  " doPrimitive:withArguments: " \
  20.   #( #[ 16r21 16r22 16rFA 16r02 16r1E 16rF3 16rF5] \
  21.     #(  )) >
  22.  
  23. <primitive 112 pTempVar 6  " displayAssign " \
  24.   #( #[ 16r51 16r52 16rFA 16r02 16r08 16rF3 16rF5] \
  25.     #(  )) >
  26.  
  27. <primitive 112 pTempVar 7  " display " \
  28.   #( #[ 16r51 16r51 16rFA 16r02 16r08 16rF3 16rF5] \
  29.     #(  )) >
  30.  
  31. <primitive 112 pTempVar 8  " debug: " \
  32.   #( #[ 16r52 16r21 16rFA 16r02 16r08 16rF3 16rF5] \
  33.     #(  )) >
  34.  
  35. <primitive 112 pTempVar 9  " date " \
  36.   #( #[ 16rFA 16r00 16rA0 16rF3 16rF5] \
  37.     #(  )) >
  38.  
  39. <primitive 112 pTempVar 10  " clearScreen " \
  40.   #( #[ 16rFA 16r00 16rA2 16rF2 16rF5] \
  41.     #(  )) >
  42.  
  43. <primitive 98 #AmigaTalk \
  44.   <primitive 97 #AmigaTalk #Dictionary #AmigaTalk:General/AmigaTalk.st \
  45.    #(  ) \
  46.    #( #time: #sh: #perform:withArguments: #noDisplay #doPrimitive:withArguments:  \
  47.        #displayAssign #display #debug: #date #clearScreen  ) \
  48.   pTempVar 3 3 >>
  49.  
  50.